MacWorld 1999 July

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Graphics / AutoPlotVW Package / AP Plug-ins / AP_Move to closest 3 in (H).vsm < prev next >
Unknown | 1999-01-20 | 3.5 KB | [MCmp/CDP3]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	siegfried	fmt/1142 VectorWorks Plugin or Script	default
id metadata
key	value
macFileType	`[MCmp]`
macFileCreator	`[CDP3]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4d 43 56 53 00 4d 1b 41 | 50 5f 4d 6f 76 65 20 74 |MCVS.M.A|P_Move t|
|00000010| 6f 20 63 6c 6f 73 65 73 | 74 20 33 20 69 6e 20 28 |o closes|t 3 in (|
|00000020| 48 29 20 43 69 72 63 75 | 69 74 06 54 77 6f 66 65 |H) Circu|it.Twofe|
|00000030| 72 6f 72 74 00 00 00 02 | 09 31 2f 34 20 43 6f 6c |rort....|.1/4 Col|
|00000040| 6f 72 00 17 06 55 08 41 | 75 74 6f 50 6c 6f 74 6e |or...U.A|utoPlotn|
|00000050| 65 6f 75 73 2f 34 20 53 | 68 6f 72 74 20 50 75 72 |eous/4 S|hort Pur|
|00000060| 70 6f 73 65 73 69 00 6e | 00 00 00 06 0a 31 2f 34 |posesi.n|.....1/4|
|00000070| 20 55 6e 69 74 20 23 00 | 00 4e 6f 6e 65 00 00 00 | Unit #.|.None...|
|00000080| 00 00 00 00 00 01 00 01 | 00 00 08 b2 00 00 05 5a |........|.......Z|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 81 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 0a | 00 00 00 00 00 14 07 8e |........|........|
|000007b0| 00 6e 00 00 00 06 0a 31 | 2f 34 20 55 6e 69 74 20 |.n.....1|/4 Unit |
|000007c0| 23 00 00 4e 6f 6e 65 00 | 00 00 00 00 00 00 00 01 |#..None.|........|
|000007d0| 09 44 69 6d 65 6e 73 69 | 6f 6e 00 00 00 10 00 00 |.Dimensi|on......|
|000007e0| 00 1a 00 00 00 0a 00 00 | 00 00 04 4e 6f 6e 65 61 |........|...Nonea|
|000007f0| 6e 6e 65 6c 75 72 00 6f | 73 65 00 00 00 00 00 00 |nnelur.o|se......|
|00000800| 00 00 00 00 01 10 00 00 | 00 1a 00 00 00 0a 00 08 |........|........|
|00000810| 0b 31 2f 32 20 43 68 61 | 6e 6e 65 6c 75 72 70 6f |.1/2 Cha|nnelurpo|
|00000820| 73 65 68 6f 72 74 00 00 | 00 09 09 31 2f 32 20 43 |sehort..|...1/2 C|
|00000830| 6f 6c 6f 72 20 50 75 72 | 70 6f 73 65 68 61 6e 6e |olor Pur|posehann|
|00000840| 00 00 00 07 11 31 2f 32 | 20 53 68 6f 72 74 20 50 |.....1/2| Short P|
|00000850| 75 72 70 6f 73 65 69 72 | 63 75 00 00 00 03 0b 31 |urposeir|cu.....1|
|00000860| 2f 34 20 43 68 61 6e 6e | 65 6c 75 72 70 6f 73 65 |/4 Chann|elurpose|
|00000870| 6f 6c 6f 72 00 00 00 05 | 0b 31 2f 34 20 43 69 72 |olor....|.1/4 Cir|
|00000880| 63 75 69 74 75 72 70 6f | 73 65 68 6f 72 74 00 00 |cuiturpo|sehort..|
|00000890| 00 02 09 31 2f 34 20 43 | 6f 6c 6f 72 20 50 75 72 |...1/4 C|olor Pur|
|000008a0| 70 6f 73 65 6e 69 74 20 | 00 00 00 04 11 31 2f 34 |posenit |.....1/4|
|000008b0| 00 00 50 52 4f 43 45 44 | 55 52 45 20 4d 6f 76 65 |..PROCED|URE Move|
|000008c0| 4c 69 67 68 74 73 33 49 | 6e 3b 0d 56 41 52 20 0d |Lights3I|n;.VAR .|
|000008d0| 09 4f 62 6a 48 61 6e 64 | 6c 65 3a 48 61 6e 64 6c |.ObjHand|le:Handl|
|000008e0| 65 3b 0d 0d 7b 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |e;..{===|========|
|000008f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000930| 3d 7d 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 4d |=}...PRO|CEDURE M|
|00000940| 6f 76 65 45 61 63 68 47 | 72 6f 75 70 28 74 68 65 |oveEachG|roup(the|
|00000950| 4f 62 6a 65 63 74 3a 48 | 61 6e 64 6c 65 29 3b 0d |Object:H|andle);.|
|00000960| 09 0d 09 56 41 52 0d 09 | 09 78 2c 79 2c 78 31 2c |...VAR..|.x,y,x1,|
|00000970| 79 31 2c 78 32 2c 79 32 | 20 3a 20 52 45 41 4c 3b |y1,x2,y2| : REAL;|
|00000980| 0d 09 09 64 65 6c 74 61 | 58 2c 20 6d 6f 76 65 58 |...delta|X, moveX|
|00000990| 20 3a 20 52 45 41 4c 3b | 0d 0d 09 42 45 47 49 4e | : REAL;|...BEGIN|
|000009a0| 0d 09 09 47 65 74 42 42 | 6f 78 28 74 68 65 4f 62 |...GetBB|ox(theOb|
|000009b0| 6a 65 63 74 2c 78 31 2c | 79 31 2c 78 32 2c 79 32 |ject,x1,|y1,x2,y2|
|000009c0| 29 3b 0d 09 09 78 20 3a | 3d 20 78 20 2b 20 28 28 |);...x :|= x + ((|
|000009d0| 78 32 2d 78 31 29 2f 32 | 29 3b 0d 09 09 64 65 6c |x2-x1)/2|);...del|
|000009e0| 74 61 58 20 3a 3d 20 58 | 20 2d 20 28 54 72 75 6e |taX := X| - (Trun|
|000009f0| 63 28 58 20 2f 20 33 29 | 20 2a 20 33 29 3b 0d 09 |c(X / 3)| * 3);..|
|00000a00| 09 0d 09 09 49 46 20 64 | 65 6c 74 61 58 20 3c 3e |....IF d|eltaX <>|
|00000a10| 20 30 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 0d 09 | 0 THEN |BEGIN...|
|00000a20| 09 09 49 46 20 58 20 3e | 20 30 20 54 48 45 4e 20 |..IF X >| 0 THEN |
|00000a30| 42 45 47 49 4e 0d 09 09 | 09 09 49 46 20 64 65 6c |BEGIN...|..IF del|
|00000a40| 74 61 58 20 3c 20 31 2e | 35 20 54 48 45 4e 0d 09 |taX < 1.|5 THEN..|
|00000a50| 09 09 09 09 64 65 6c 74 | 61 58 20 3a 3d 20 64 65 |....delt|aX := de|
|00000a60| 6c 74 61 58 20 2a 20 28 | 2d 31 29 0d 09 09 09 09 |ltaX * (|-1).....|
|00000a70| 45 4c 53 45 0d 09 09 09 | 09 09 64 65 6c 74 61 58 |ELSE....|..deltaX|
|00000a80| 20 3a 3d 20 33 20 2d 20 | 64 65 6c 74 61 58 3b 0d | := 3 - |deltaX;.|
|00000a90| 09 09 09 45 4e 44 0d 09 | 09 09 45 4c 53 45 20 49 |...END..|..ELSE I|
|00000aa0| 46 20 41 42 53 28 64 65 | 6c 74 61 58 29 20 3c 20 |F ABS(de|ltaX) < |
|00000ab0| 31 2e 35 20 54 48 45 4e | 0d 09 09 09 09 09 64 65 |1.5 THEN|......de|
|00000ac0| 6c 74 61 58 20 3a 3d 20 | 20 41 42 53 28 64 65 6c |ltaX := | ABS(del|
|00000ad0| 74 61 58 29 0d 09 09 09 | 09 45 4c 53 45 0d 09 09 |taX)....|.ELSE...|
|00000ae0| 09 09 09 64 65 6c 74 61 | 58 20 3a 3d 20 28 33 20 |...delta|X := (3 |
|00000af0| 2b 20 64 65 6c 74 61 58 | 29 20 2a 20 28 2d 31 29 |+ deltaX|) * (-1)|
|00000b00| 3b 0d 09 09 09 09 0d 09 | 09 09 48 4d 6f 76 65 28 |;.......|..HMove(|
|00000b10| 74 68 65 4f 62 6a 65 63 | 74 2c 20 64 65 6c 74 61 |theObjec|t, delta|
|00000b20| 58 2c 30 29 3b 0d 09 09 | 45 4e 44 3b 0d 09 45 4e |X,0);...|END;..EN|
|00000b30| 44 3b 0d 0d 7b 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |D;..{===|========|
|00000b40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b80| 3d 7d 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 4d |=}...PRO|CEDURE M|
|00000b90| 6f 76 65 45 61 63 68 4c | 69 67 68 74 28 74 68 65 |oveEachL|ight(the|
|00000ba0| 4f 62 6a 65 63 74 3a 48 | 61 6e 64 6c 65 29 3b 0d |Object:H|andle);.|
|00000bb0| 0d 09 56 41 52 0d 09 09 | 78 2c 79 20 3a 20 52 45 |..VAR...|x,y : RE|
|00000bc0| 41 4c 3b 0d 09 09 64 65 | 6c 74 61 58 2c 20 6d 6f |AL;...de|ltaX, mo|
|00000bd0| 76 65 58 20 3a 20 52 45 | 41 4c 3b 0d 09 09 0d 09 |veX : RE|AL;.....|
|00000be0| 42 45 47 49 4e 0d 09 09 | 47 65 74 53 79 6d 4c 6f |BEGIN...|GetSymLo|
|00000bf0| 63 28 74 68 65 4f 62 6a | 65 63 74 2c 20 78 2c 79 |c(theObj|ect, x,y|
|00000c00| 29 3b 0d 09 09 64 65 6c | 74 61 58 20 3a 3d 20 78 |);...del|taX := x|
|00000c10| 20 2d 20 28 54 72 75 6e | 63 28 78 20 2f 20 33 29 | - (Trun|c(x / 3)|
|00000c20| 20 2a 20 33 29 3b 0d 09 | 09 0d 09 09 49 46 20 64 | * 3);..|....IF d|
|00000c30| 65 6c 74 61 58 20 3c 3e | 20 30 20 54 48 45 4e 20 |eltaX <>| 0 THEN |
|00000c40| 42 45 47 49 4e 0d 0d 09 | 09 09 49 46 20 78 20 3e |BEGIN...|..IF x >|
|00000c50| 20 30 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 | 0 THEN |BEGIN...|
|00000c60| 09 09 49 46 20 64 65 6c | 74 61 58 20 3c 20 31 2e |..IF del|taX < 1.|
|00000c70| 35 20 54 48 45 4e 0d 09 | 09 09 09 09 64 65 6c 74 |5 THEN..|....delt|
|00000c80| 61 58 20 3a 3d 20 64 65 | 6c 74 61 58 20 2a 20 28 |aX := de|ltaX * (|
|00000c90| 2d 31 29 0d 09 09 09 09 | 45 4c 53 45 0d 09 09 09 |-1).....|ELSE....|
|00000ca0| 09 09 64 65 6c 74 61 58 | 20 3a 3d 20 33 20 2d 20 |..deltaX| := 3 - |
|00000cb0| 64 65 6c 74 61 58 3b 0d | 09 09 09 45 4e 44 0d 09 |deltaX;.|...END..|
|00000cc0| 09 09 45 4c 53 45 20 49 | 46 20 41 42 53 28 64 65 |..ELSE I|F ABS(de|
|00000cd0| 6c 74 61 58 29 20 3c 20 | 31 2e 35 20 54 48 45 4e |ltaX) < |1.5 THEN|
|00000ce0| 0d 09 09 09 09 09 64 65 | 6c 74 61 58 20 3a 3d 20 |......de|ltaX := |
|00000cf0| 20 41 42 53 28 64 65 6c | 74 61 58 29 0d 09 09 09 | ABS(del|taX)....|
|00000d00| 09 45 4c 53 45 0d 09 09 | 09 09 09 64 65 6c 74 61 |.ELSE...|...delta|
|00000d10| 58 20 3a 3d 20 28 33 20 | 2b 20 64 65 6c 74 61 58 |X := (3 |+ deltaX|
|00000d20| 29 20 2a 20 28 2d 31 29 | 3b 0d 09 09 09 09 0d 09 |) * (-1)|;.......|
|00000d30| 09 09 48 4d 6f 76 65 28 | 74 68 65 4f 62 6a 65 63 |..HMove(|theObjec|
|00000d40| 74 2c 20 64 65 6c 74 61 | 58 2c 30 29 3b 0d 09 09 |t, delta|X,0);...|
|00000d50| 45 4e 44 3b 0d 09 45 4e | 44 3b 0d 0d 42 45 47 49 |END;..EN|D;..BEGI|
|00000d60| 4e 0d 09 46 6f 72 45 61 | 63 68 4f 62 6a 65 63 74 |N..ForEa|chObject|
|00000d70| 28 4d 6f 76 65 45 61 63 | 68 47 72 6f 75 70 2c 20 |(MoveEac|hGroup, |
|00000d80| 28 28 28 54 3d 47 72 6f | 75 70 29 20 26 20 28 53 |(((T=Gro|up) & (S|
|00000d90| 45 4c 3d 54 52 55 45 29 | 29 29 29 3b 0d 09 46 6f |EL=TRUE)|)));..Fo|
|00000da0| 72 45 61 63 68 4f 62 6a | 65 63 74 28 4d 6f 76 65 |rEachObj|ect(Move|
|00000db0| 45 61 63 68 4c 69 67 68 | 74 2c 20 28 28 28 54 3d |EachLigh|t, (((T=|
|00000dc0| 53 79 6d 62 6f 6c 29 20 | 26 20 28 53 45 4c 3d 54 |Symbol) |& (SEL=T|
|00000dd0| 52 55 45 29 29 29 29 3b | 0d 45 4e 44 3b 20 7b 50 |RUE))));|.END; {P|
|00000de0| 72 6f 63 65 64 75 72 65 | 20 4d 6f 76 65 4c 69 67 |rocedure| MoveLig|
|00000df0| 68 74 73 33 49 6e 7d 0d | 52 75 6e 28 4d 6f 76 65 |hts3In}.|Run(Move|
|00000e00| 4c 69 67 68 74 73 33 49 | 6e 29 3b 0d             |Lights3I|n);.    |
+--------+-------------------------+-------------------------+--------+--------+